﻿Imports System.Reflection

Namespace BMLERP.Resources
	Public Class ResourceInterface
		Private Shared assembly As Assembly = Nothing
		Private Shared assemblyName As String = Nothing

		Shared Sub New()
			assembly = GetAssembly()
			assemblyName = GetAssemblyName()
		End Sub

		Public Shared Property AssemblyValue() As Assembly
			Get
				Return assembly
			End Get
			Set(ByVal value As Assembly)
				assembly = value
			End Set
		End Property

		Public Shared Property AssemblyNameVal() As String
			Get
				Return assemblyName
			End Get
			Set(ByVal value As String)
				assemblyName = value
			End Set
		End Property

		Shared Function GetAssembly() As Assembly
			Return assembly.GetExecutingAssembly()
		End Function

		Shared Function GetAssemblyName() As String
			Return assembly.GetExecutingAssembly().GetName().Name
		End Function

	End Class
End Namespace
